Public Class Ubicaciones
    Dim ADUbi As New ADCono.Ubicaciones
    Public Function GenerarUbicacion(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADUbi.GenerarUbicacion(Dat(0), Dat(1), Dat(2))
        Return DS
    End Function
    
    Public Function ObtenerUbicaciones(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ADUbi.ObtenerUbicaciones(Dat(0), Dat(1))
        Return DS
    End Function

    Public Function EliminarUbicacion(ByVal CodUbi As Integer)
        Dim DS As New DataSet
        DS = ADUbi.EliminarUbicacion(CodUbi)
        Return DS
    End Function

    Public Function ModificarUbicacion(ByVal NomUbi As String)
        Dim DS As New DataSet
        DS = ADUbi.ModificarUbicacion(NomUbi)
        Return DS
    End Function
End Class
